-- card: 2899 from stack: in
-- bmap block id: 21679
-- flags: 4000
-- background id: 2630
-- name: USA


-- part 5 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=50 top=48 right=90 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set the scroll of card field "About" to 0
  show card field "About"
  show card field "About Title"
  show card button "Hide About"
  set lockscreen to false
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=93 top=48 right=90 bottom=138
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect barn door close to black
  visual effect barn door open to inverse
  go home
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=360 top=49 right=91 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 13785 / 13785
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,GetPixel) into it
  if it is empty then play boing
  else answer it
end mouseUp



-- part 4 (field)
-- low flags: 80
-- high flags: 2001
-- rect: left=101 top=211 right=308 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 18
-- part name: In the Map


-- part 6 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=100 top=210 right=309 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About


-- part 8 (field)
-- low flags: 80
-- high flags: 2001
-- rect: left=101 top=211 right=230 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name: About Title


-- part 7 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=100 top=210 right=309 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide About
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  hide card button "Hide About"
  hide card field "About Title"
  hide card field "About"
  set lockscreen to false
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=403 top=49 right=91 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 6347 / 6347
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Code
----- HyperTalk script -----
on mouseUp
  show card field code
  show card button "Hide Code"
end mouseUp



-- part 10 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=17 top=27 right=326 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Code


-- part 11 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=17 top=27 right=326 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide Code
----- HyperTalk script -----
on mouseUp
  hide card field "Code"
  hide card button "Hide Code"
end mouseUp



-- part contents for card part 4
----- text -----

You must click the mouse in the black area of the map, on one of the states...

-- part contents for card part 6
----- text -----


           ©1988 by Richard P. Davis 

This XFCN is sort of Shareware...  If you use it for something, please send me a copy of the stack you used it in, so I can see what is being done with it.  Either send it via the U.S. Snail, addressed to:

        Richard P. Davis
        49 Showers Dr. #227J
        Mountain View, Ca. 94040

Or post it on GENIE and send a message addressed to MJOLLNIR, telling me the name of the stack and a little bit about it.

   Please do NOT post this stack on CI$,
     otherwise known as Compuserve...

If you frequent the MacInfo BBS in the San Francisco bay area, you can post your stack there instead of on GENIE, and send mail to RICHARD DAVIS there.

  <<Click here to return to explanation>>

-- part contents for card part 8
----- text -----
GetPixel

-- part contents for card part 10
----- text -----
/*
    GetPixel -- a sample HyperCard user-defined command in C.
*/

#include <Types.h>
#include <MemoryMgr.h>
#include <OSUtil.h>
#include <QuickDraw.h>
#include "XCmd.h"

pascal void main(paramPtr)
    XCmdBlockPtr    paramPtr;
{
    short   h, v;
    Boolean x;
    GrafPtr port;
    Str31   str, res;

    /* First param is horizontal pos.  Convert it to a pascal string */
    ZeroToPas(paramPtr,(char *)*(paramPtr->params[0]),(StringPtr)&str);
    /* Convert the string to a number */
    h = StrToNum(paramPtr,&str);

    /* Second param is vertical pos.  Convert it to a pascal string */
    ZeroToPas(paramPtr,(char *)*(paramPtr->params[1]),(StringPtr)&str);
    /* Convert the string to a number */
    v = StrToNum(paramPtr,&str);

    /* Test the pixel passed to us */
    x = GetPixel(h, v);
    BoolToStr(paramPtr,x,(Str31 *)&res);
    paramPtr->returnValue = PasToZero(paramPtr,(StringPtr)&res);
}


-- part contents for background part 3
----- text -----
Illinois